100 REM SAVE"0:CUA[160] (CHANGE)",8
110 REM ** JIM BUTTERFIELD - SEPTEMBER 1981
120 REM ** FOR CBM DISK DRIVES 1540, 1541, 2031, 2040, 4040, 8050, 8250
130 PRINT "OLD DEVICE NUMBER   8[157][157][157]";: INPUT DO
140 IF DO<8 OR DO>15 THEN 130
150 PRINT "NEW DEVICE NUMBER   9[157][157][157]";: INPUT DN
160 IF DN<8 OR DN>15 THEN 150
170 OPEN 15,DO,15: REM COMMAND CHANNEL
180 A$=CHR$(DO+32): B$=CHR$(DO+64): REM TALK AND LISTEN CURRENT
190 READ A: IF A=0 THEN PRINT "DISK NOT RECOGNIZED!";: GOTO 230
200 PRINT#15,"M-R"CHR$(A)CHR$(0): GET#15,X$: IF X$<>A$ THEN 190
210 PRINT#15,"M-R"CHR$(A+1)CHR$(0): GET#15,X$: IF X$<>B$ THEN 190
220 PRINT#15,"M-W"CHR$(A)CHR$(0)CHR$(2)CHR$(DN+32)CHR$(DN+64)
230 CLOSE15
240 DATA  12,  50, 119,   0